home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / icq_installed.nasl < prev    next >
Text File  |  2005-03-08  |  2KB  |  70 lines
  1. #
  2. # This script was written by Xue Yong Zhi <xueyong@udel.edu>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(11425);
  10.  script_bugtraq_id(1307, 132, 246, 2664, 3226, 3813, 929);
  11.  
  12. #TODO: too long bugtraq id
  13.  script_cve_id("CAN-1999-1418", "CAN-1999-1440", "CAN-2000-0046", "CAN-2000-0564", "CVE-2000-0552", "CAN-2001-0367", "CVE-2002-0028", "CAN-2001-1305");
  14.  
  15.  script_version("$Revision: 1.7 $");
  16.  
  17.  name["english"] = "ICQ is installed";
  18.  
  19.  script_name(english:name["english"]);
  20.  
  21.  desc["english"] = "
  22. The remote host is using ICQ - a p2p software, 
  23. which may not be suitable for a business environment. 
  24.  
  25. Solution : Uninstall this software
  26. Risk factor : Low";
  27.  
  28.  
  29.  
  30.  script_description(english:desc["english"]);
  31.  
  32.  summary["english"] = "Determines if ICQ is installed";
  33.  
  34.  script_summary(english:summary["english"]);
  35.  
  36.  script_category(ACT_GATHER_INFO);
  37.  
  38.  script_copyright(english:"This script is Copyright (C) 2003 Xue Yong Zhi");
  39.  family["english"] = "Peer-To-Peer File Sharing";
  40.  script_family(english:family["english"]);
  41.  
  42.  script_dependencies("netbios_name_get.nasl",
  43.               "smb_login.nasl","smb_registry_access.nasl");
  44.  script_require_keys("SMB/name", "SMB/login", "SMB/password",
  45.              "SMB/domain","SMB/transport");
  46.  
  47.  script_require_ports(139, 445);
  48.  exit(0);
  49. }
  50.  
  51.  
  52. include("smb_nt.inc");
  53.  
  54.  
  55. rootfile = registry_get_sz(key:"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ICQ", item:"DisplayName");
  56. if(rootfile)
  57. {
  58.  security_note(get_kb_item("SMB/transport"));
  59.  exit(0); 
  60. }
  61.  
  62. rootfile = registry_get_sz(key:"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ICQLite", item:"DisplayName");
  63. if(rootfile)
  64. {
  65.  security_note(get_kb_item("SMB/transport"));
  66.  exit(0); 
  67. }
  68.  
  69.  
  70.